home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power Programmierung
/
Power-Programmierung (Tewi)(1994).iso
/
magazine
/
aijournl
/
1986_10
/
aiapp6.fig
< prev
next >
Wrap
Text File
|
1986-07-16
|
384b
|
10 lines
FUNCTION append_list(list1,list2 : node_ptr) : node_ptr ;
BEGIN
IF list1 = NIL
THEN append_list := list2
ELSE append_list := cons(head(list1),append_list(tail(list1),list2)) ;
END ; (* append_list *)
Figure 6 - The append routine.